      'Updater code for Visual Basic 2008 Express Edition
      'This code is at build 154 [Currently working 100%]
      Private Sub updatecheck(ByVal msg As Boolean, ByVal currentversion As String, ByVal txtdocumentaddress As String, ByVal exeaddress As String)
      If My.Computer.FileSystem.FileExists(CurDir() & "/updater.exe") Then
      My.Computer.FileSystem.DeleteFile(CurDir() & "/updater.exe")
      End If
      If My.Computer.FileSystem.FileExists(CurDir() & "/updater.txt") Then
      My.Computer.FileSystem.DeleteFile(CurDir() & "/updater.txt")
      End If
      If My.Computer.Network.IsAvailable = True Then
      My.Computer.Network.DownloadFile(txtdocumentaddress, CurDir() & "/updater.txt")
      Dim lolz As New TextBox
      lolz.Text = My.Computer.FileSystem.ReadAllText(CurDir() & "/updater.txt")

      curver = currentversion
      If curver = lolz.Text Then
      If msg = True Then
      MsgBox("You have the most recent version!")
      Else

      End If
      Else
      My.Computer.FileSystem.DeleteFile(CurDir() & "/updater.txt")
      My.Computer.Network.DownloadFile(exeaddress, CurDir() & "/updater.exe")
      Shell(CurDir() & "/updater.exe")
      End
      End If
      Else
      End If
      End Sub